﻿Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Xml
Imports System.Reflection


Partial Class 数据

    Public 点名 As String
    Public 自 As String
    Public 至 As String
    Public 高差 As String


    Public Property 观测事件 As 观测事件



    Public Shared Function Paras(xxNode As XmlNode) As 数据

        Dim tmpClass As 数据 = New 数据()
        Dim nameList As XmlAttributeCollection = xxNode.Attributes
        For Each xxattribute As XmlAttribute In nameList
            Try

                Dim tmpType As Type = tmpClass.GetType()
                Dim tmpP As FieldInfo = tmpType.GetField(xxattribute.Name)
                tmpP.SetValue(tmpClass, xxattribute.Value)
            Catch ex As Exception

            End Try

        Next
        Return tmpClass

    End Function



End Class